(make_menu_in_widget): Set mapping delay

for cascade buttons to zero.

diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index 6d1e76f960ed73814ba39062ac5a312945c5534f..57e4b4a2ca5cd9d32c059cc4965f33687f34f543 100644 (file)
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -440,7 +440,10 @@ make_menu_in_widget (instance, widget, val, keep_first_children)
        {
          menu = XmCreatePulldownMenu (widget, cur->name, NULL, 0);
          make_menu_in_widget (instance, menu, cur->contents, 0);
-         XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
+          XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
+          /* non-zero values don't work reliably in
+             conjunction with Emacs' event loop */
+          XtSetArg (al [ac], XmNmappingDelay, 0); ac++;
          button = XmCreateCascadeButtonGadget (widget, cur->name, al, ac);
 
          xm_update_label (instance, button, cur);